
**************************************************************
**************************************************************
*
*
*
* 					MACROESTIMATES 
*
*
*
***************************************************************
***************************************************************


use "JEBO_MACRO_DATA.dta", clear


*************************
* FIGURE 2 *
*************************
reg trust2010_combined trustgss    if year==2010
reg trust2010_combined trustgss    if  year==1950
twoway (scatter trust2010_combined trustgss if year==2010, ytitle("Trust in the home country in 2010")  xtitle("Inherited trust in 2010") caption( "R≤=0.29", ring(0) pos(2)) legend(off) msize (tiny) mlabel(cty) mlabsize(small)) 
graph rename Graph trust2010, replace

twoway (scatter trust2010_combined trustgss if year==1950, ytitle("Trust in the home country in 2010")  xtitle("Inherited trust in 1950") caption( "R≤=0.14", ring(0) pos(2)) legend(off) msize (tiny) mlabel(cty) mlabsize(small)) 
graph rename Graph trust1950, replace

gr combine trust2010 trust1950,  col(1) iscale(1)


*************************
* TABLE 3 *
*************************
estimates drop _all
xi: reg logGHGcapita_relative_swd trustgss logGDPcapita_relative_swd sharemanu_relative_swd openc_relative_swd   ib26.ethnic if p19502010==1, noconstant robust
estimates store ghg1
xi: reg logGHGcapita_relative_swd trustgss_parent logGDPcapita_relative_swd sharemanu_relative_swd openc_relative_swd   ib26.ethnic if p19502010==1, noconstant robust
estimates store ghg2
* without Africa
xi: reg logGHGcapita_relative_swd trustgss  logGDPcapita_relative_swd sharemanu_relative_swd  openc_relative_swd ib26.ethnic  if ethnic!=1 & p19502010==1, noconstant robust
estimates store ghg3
* without Nordic countries (Dk, Fin, Nw)
xi: reg logGHGcapita_relative_swd trustgss  logGDPcapita_relative_swd sharemanu_relative_swd  openc_relative_swd ib26.ethnic  if ethnic!=7 & ethnic!=9 & ethnic!=19 & p19502010==1, noconstant robust
estimates store ghg4

esttab  ghg* , star(* 0.1 ** 0.05 *** 0.01) nolabel  nogaps scalar(N) r2(2) b(%9.3f) drop (*ethnic) se


*************************
* TABLE 4 *
*************************
estimates drop _all

* CO2 emissions
xi: reg logGHGcapita_relative_swd trustgss_early logGDPcapita_relative_swd  ib26.ethnic  if p19201980==1, noconstant robust
estimates store early
* exclude Ireland and India because 1920 Polity is missing for these countries.

* Gdp per capita
xi: reg GDP_avg_relative_swd trustgss_early GDPcapita_ini_relative_swd ib26.ethnic if p19201980==1, noconstant 
estimates store early2
xi: reg GDP_avg_relative_swd trustgss_early polity2_relative_swd GDPcapita_ini_relative_swd ib26.ethnic if p19201980==1 & ethnic!=31, noconstant
estimates store early3
esttab  early* , star(* 0.1 ** 0.05 *** 0.01) nolabel  nogaps scalar(N) r2(2) b(%9.3f) se drop (*ethnic*)  


*************************
* TABLE 5 *
*************************
estimates drop _all
xi: reg logGHGcapita_relative_swd trustgss_lag logGDPcapita_relative_swd ib26.ethnic if p19502010==1, noconstant robust
estimates store lag1
xi: reg logGHGcapita_relative_swd trustgss_lag_parent logGDPcapita_relative_swd   ib26.ethnic if p19502010==1, noconstant robust
estimates store lag2
xi: reg logGHGcapita_relative_swd trustgss_lag logGDPcapita_relative_swd sharemanu_relative_swd   ib26.ethnic if p19502010==1, noconstant robust
estimates store lag3
xi: reg logGHGcapita_relative_swd trustgss_lag logGDPcapita_relative_swd sharemanu_relative_swd openc_relative_swd  ib26.ethnic if p19502010==1, noconstant robust
estimates store lag4
esttab  lag* , star(* 0.1 ** 0.05 *** 0.01) nolabel  nogaps scalar(N) r2(2) b(%9.3f) se drop (*ethnic) 


*************************
* TABLE 6 *
*************************
estimates drop _all
xi: reg logGHGcapita_relative_swd trustgss_shortlag logGDPcapita_relative_swd ib26.ethnic if p19702010==1, noconstant robust
estimates store shortlag1
xi: reg logGHGcapita_relative_swd trustgss_shortlagP logGDPcapita_relative_swd  ib26.ethnic if p19702010==1 , noconstant robust
estimates store shortlag2
xi: reg logGHGcapita_relative_swd trustgss_shortlag logGDPcapita_relative_swd sharemanu_relative_swd  ib26.ethnic if p19702010==1, noconstant robust
estimates store shortlag3
xi: reg logGHGcapita_relative_swd trustgss_shortlag logGDPcapita_relative_swd sharemanu_relative_swd openc_relative_swd  ib26.ethnic if p19702010==1, noconstant robust
estimates store shortlag4
esttab  shortlag* , star(* 0.1 ** 0.05 *** 0.01) nolabel  nogaps scalar(N) r2(2) b(%9.3f) se  drop (*ethnic*)  


*************************
* TABLE 7 *
*************************
estimates drop _all
xi: reg logGHGcapita_relative_swd trustgss logGDPcapita_relative_swd sharemanu_relative_swd openc_relative_swd logGDPcapita_2_relative_swd  ib26.ethnic if p19502010==1, noconstant robust
estimates store addi1
xi: reg logGHGcapita_relative_swd trustgss logGDPcapita_relative_swd sharemanu_relative_swd openc_relative_swd polity2_relative_swd  ib26.ethnic if p19502010==1, noconstant robust
estimates store addi2
xi: reg logGHGcapita_relative_swd trustgss logGDPcapita_relative_swd sharemanu_relative_swd openc_relative_swd  pri_relative_swd ib26.ethnic if p19502010==1, noconstant robust
estimates store addi3
xi: reg logGHGcapita_relative_swd trustgss logGDPcapita_relative_swd sharemanu_relative_swd openc_relative_swd  urban_relative_swd ib26.ethnic if p19502010==1, noconstant robust
estimates store addi4
xi: reg logGHGcapita_relative_swd trustgss logGDPcapita_relative_swd sharemanu_relative_swd openc_relative_swd  popden_relative_swd ib26.ethnic if p19502010==1 & ethnic!=36, noconstant robust
estimates store addi5
esttab  addi* , star(* 0.1 ** 0.05 *** 0.01) nolabel  nogaps scalar(N) r2(2) b(%9.3f) drop (*ethnic) se

